﻿Public Class frmThem_CapNhatLoaiHang
    Public _status As String
    Public _id As Integer
    Private Sub frmThem_CapNhatLoaiHang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If _status = "Them" Then
            Me.Text = "Thêm loại hàng"
            btn_Them_CapNhat.Text = "Thêm"
        ElseIf _status = "CapNhat" Then
            Me.Text = "Cập nhật loại hàng!"
            btn_Them_CapNhat.Text = "Cập nhật"
        End If
    End Sub

    Private Sub btn_Them_CapNhat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Them_CapNhat.Click
        If txtLoai.Text = "" Then
            MessageBox.Show("Phải nhập đủ thông tin!","",MessageBoxButtons.OK)
        ElseIf _status = "Them" Then
            Try
                Dim _lh = New LoaiHang
                _lh.m_strLoai = txtLoai.Text
                LoaiHangDAO.ThemLoaiHang(_lh)
                MessageBox.Show("Thêm thành công", "", MessageBoxButtons.OK)
                Me.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            ElseIf _status = "CapNhat" Then
                Try
                    Dim _lh = New LoaiHang
                    _lh.m_intID = _id
                    _lh.m_strLoai = txtLoai.Text
                    LoaiHangDAO.CapNhatLoaiHang(_lh)
                    MessageBox.Show("Cập nhật thành công", "", MessageBoxButtons.OK)
                    Me.Close()
                Catch ex As Exception
                    MsgBox(ex.Message)
            End Try
        End If
    End Sub
End Class